home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 March / Ahoy_Magazine_88-03_1988_Double_L.d64 / Joyful Spirits (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  590b  |  23 lines
  1. 0 print"[147]"tab(12)"joyful spirits"
  2. 1 rem =================================
  3. 2 rem   commodare problem #47-3 :
  4. 3 rem    joyful spirits
  5. 4 rem   solution by
  6. 5 rem    casey riley
  7. 6 rem =================================
  8. 10 v=53248:x=100:y=150:for d=832 to 832+63 : poke d,255  : next
  9. 20 poke 2040,13 :poke v+21,1:poke v+39,1
  10. 30 poke v,x : poke v+1,y
  11. 40 c=peek(56320) :rem joystick in port 2
  12. 50 if (c and 1)=0 then y=y-1
  13. 60 if (c and 2)=0 then y=y+1
  14. 70 if (c and 4)=0 then x=x-1
  15. 80 if (c and 8)=0 then x=x+1
  16. 85 goto 30
  17. 89 rem optional boundaries (delete line 85)
  18. 90 if y<30 then y=30
  19. 100 if y>229 then y=229
  20. 110 if x<1 then x=1
  21. 120 if x>255 then x=255
  22. 130 goto 30
  23.